0 REM *********************************
1 REM *   PROGRAMMIERBARE ZEICHEN     *
2 REM * ZEICHENSATZ WIRD VOM ROM INS  *
3 REM * RAM GESPIEGELT NACH 48*256.   *
4 REM * HIER KOENNEN DIE ZEICHEN      *
5 REM * BELIEBIG UMDEFINIERT WERDEN.  *
6 REM * DIE ROUTINE BELEGT 49152-49174*
7 REM *********************************
20 POKE56,48:CLR                    :REM SCHUTZ VOR UEBERSCHREIBEN
21 POKE56334,PEEK(56334)AND254      :REM INTERRUPT AUS
22 POKE1,PEEK(1)AND251              :REM EIN/AUSGABE AUS UND ZEICHENROM EIN
24 FORI=0TO22:READA:POKE49152+I,A:NEXT:SYS49152
25 DATA169,0,160,208,133,95,132,96,160,224,133,90,132,91,160,64,133,88,132
26 DATA89,76,191,163
27 POKE1,PEEK(1)OR4                 :REM EIN/AUSGABE EIN
28 POKE56334,PEEK(56334)OR1         :REM INTERRUPT EIN
29 POKE53272,(PEEK(53272)AND240)+12 :REM ZEICHENZEIGER STELLEN
30 Z1=48*256:Z2=56*256              :REM ADRESSE ZEICHENSPEICHER SATZ 1/2
98 :
99 :
100 FORI=0TO5:POKEZ1+8*160+I,0:NEXT :REM SPACE REVERS SATZ 1 VERAENDERN
101 END
198 :
199 :
200 DATA 24,24,24,24,126,60,24,0    :REM PFEIL FUER SPACE
201 FORI=0TO7:READA:POKEZ1+8*32+I,A:NEXT
202 POKE198,0:WAIT198,1:FORI=0TO7:POKEZ1+8*32+I,0:NEXT
298 :
299 :
300 A=Z1+8*32:B%=1:FORI=0TO1000:B%=B%*2:IFB%=256THENB%=1
301 POKEA,B%:NEXT                   :REM BEWEGUNG